www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\MessageSave.asp

    <!--#include file="Include/LiangjingConn.asp"-->
<!--#include file="Include/function.asp"-->
<%Response.Charset="gbk2312"%>
<%
if DateDiff("s",session("time"),now())<Refresh then
   response.write "<script language='JavaScript'>alert('防刷新机制启动：请不要在 "&Refresh&" 秒内重复刷新！');" & "history.back()" & "</script>"
   response.end
else
   session("time")=now()
end if
dim rs,sql
dim MesName,Content,MemType,mLinkman,mSex,mQQName,mMobile,CheckCode
MesName=trim(request.form("MesName"))
Content=trim(request.form("Content"))
If Trim(Session("_UserCoolName"))="" Or Trim(Session("_UserCoolName"))=null Then 
MemType="游客"
Else 
MemType=Trim(Session("_UserCoolName"))
End If 
mLinkman=trim(request.form("Linkman"))
mSex=trim(request.form("Sex"))
mQQName=trim(request.form("mQQName"))
mMobile=trim(request.form("Mobile"))
CheckCode = Trim(request.form("CheckCode"))
dim ErrMessage,ErrMsg(9),FindErr(9),i
  ErrMsg(0)="请填写留言主题。"
  ErrMsg(1)="请正确填写留言内容,不能少于1个字符。"
  ErrMsg(2)="请填写您的称呼。"
  ErrMsg(3)="请正确填写单位名称、联系地址。"
  ErrMsg(4)="请正确填写邮政编码。"
  ErrMsg(5)="请正确填写联系电话、传真号码、手机号码。"
  ErrMsg(6)="电子信箱格式错误。"
  ErrMsg(7)="验证码不能为空，请返回检查。"
  ErrMsg(8)="您在【会员注册】页面停留的时间过长，导致验证码失效。\n请返回并刷新【会员注册】页面重新注册！"
  ErrMsg(9)="您输入的验证码和系统产生的不一致，请重新输入。"
if len(MesName)>100 Or len(MesName)=0 then
  FindErr(0)=true
end if
if len(Content)<1 then
  FindErr(1)=true
end if
if len(mLinkman)>50 Or len(mLinkman)=0 then
  FindErr(2)=true
end if
If CheckCode = "" Then
	FindErr(7)=true
End If
If Trim(Session("CheckCode")) = "" Then
	FindErr(8)=true
End If
If CheckCode <> Session("CheckCode") Then
	FindErr(9)=true
End If
for i = 0 to UBound(FindErr)
  if FindErr(i)=true then
    ErrMessage=ErrMessage+ErrMsg(i)+"\n"
  end if
next
if not (ErrMessage="" Or isnull(ErrMessage)) then
  response.write "<script language='JavaScript'>alert('"&ErrMessage&"');" & "history.back()" & "</script>"
  response.end
end if
set rs = server.createobject("adodb.recordset")
sql="select * from liangjing_Feedback"
rs.open sql,conn,1,3
rs.addnew
rs("MesName")=WoDig.StrReplace(MesName)
rs("Content")=WoDig.StrReplace(Content)
rs("MetUsertype")=MemType
rs("Linkman")=WoDig.StrReplace(mLinkman)
rs("Sex")=mSex
rs("QQName")=WoDig.StrReplace(mQQName)
rs("Mobile")=WoDig.StrReplace(mMobile)
If MesViewFlag = 0 Then
rs("ViewFlag")=0
Else
rs("ViewFlag")=1
End If
rs("AddTime")=now()
rs.update
rs.close
set rs=Nothing

If MesViewFlag = 0 Then
	response.write "<script language='javascript'>alert('留言成功提交，但系统已被设置为审核可见，请等待管理员审核、回复！');location.replace('MessageList.asp');</script>"
Else
	response.write "<script language='javascript'>alert('留言成功提交，请等待管理员回复！');location.replace('MessageList.asp');</script>"
End If

%>